/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Internet / Misc / InternetConfigProgKit1.0.sit / ICProgKit1.0 / Source / ICGluePPC / ICPPCGlue.c

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 49 43 50 50 43 47 | 6c 75 65 2e 63 00 00 00 |..ICPPCG|lue.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 43 | 43 01 00 00 00 00 00 00 |.TEXTMPC|C.......|
|00000050| 00 00 00 00 00 1b b0 00 | 00 01 7e ab 00 ec 58 ab |........|..~...X.|
|00000060| 00 ec 58 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..X.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bb 7b 00 00 |........|.....{..|
|00000080| 23 69 6e 63 6c 75 64 65 | 20 3c 54 79 70 65 73 2e |#include| <Types.|
|00000090| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 4d 69 78 |h>.#incl|ude <Mix|
|000000a0| 65 64 4d 6f 64 65 2e 68 | 3e 0d 23 69 6e 63 6c 75 |edMode.h|>.#inclu|
|000000b0| 64 65 20 3c 47 65 73 74 | 61 6c 74 45 71 75 2e 68 |de <Gest|altEqu.h|
|000000c0| 3e 0d 23 69 6e 63 6c 75 | 64 65 20 3c 43 6f 6d 70 |>.#inclu|de <Comp|
|000000d0| 6f 6e 65 6e 74 73 2e 68 | 3e 0d 0d 23 69 6e 63 6c |onents.h|>..#incl|
|000000e0| 75 64 65 20 22 49 43 54 | 79 70 65 73 2e 68 22 0d |ude "ICT|ypes.h".|
|000000f0| 23 69 6e 63 6c 75 64 65 | 20 22 49 43 43 41 50 49 |#include| "ICCAPI|
|00000100| 2e 68 22 0d 0d 23 70 72 | 61 67 6d 61 20 6f 70 74 |.h"..#pr|agma opt|
|00000110| 69 6f 6e 73 20 61 6c 69 | 67 6e 3d 6d 61 63 36 38 |ions ali|gn=mac68|
|00000120| 6b 0d 0d 65 6e 75 6d 20 | 7b 0d 09 75 70 70 43 61 |k..enum |{..uppCa|
|00000130| 6c 6c 43 6f 6d 70 6f 6e | 65 6e 74 50 72 6f 63 49 |llCompon|entProcI|
|00000140| 6e 66 6f 20 3d 20 6b 50 | 61 73 63 61 6c 53 74 61 |nfo = kP|ascalSta|
|00000150| 63 6b 42 61 73 65 64 0d | 09 09 7c 20 52 45 53 55 |ckBased.|..| RESU|
|00000160| 4c 54 5f 53 49 5a 45 28 | 6b 46 6f 75 72 42 79 74 |LT_SIZE(|kFourByt|
|00000170| 65 43 6f 64 65 29 0d 09 | 09 7c 20 53 54 41 43 4b |eCode)..|.| STACK|
|00000180| 5f 52 4f 55 54 49 4e 45 | 5f 50 41 52 41 4d 45 54 |_ROUTINE|_PARAMET|
|00000190| 45 52 28 31 2c 20 6b 46 | 6f 75 72 42 79 74 65 43 |ER(1, kF|ourByteC|
|000001a0| 6f 64 65 29 0d 7d 3b 0d | 0d 0d 70 61 73 63 61 6c |ode).};.|..pascal|
|000001b0| 20 49 43 45 72 72 6f 72 | 20 49 43 53 74 61 72 74 | ICError| ICStart|
|000001c0| 28 49 43 49 6e 73 74 61 | 6e 63 65 20 2a 69 6e 73 |(ICInsta|nce *ins|
|000001d0| 74 2c 20 4f 53 54 79 70 | 65 20 63 72 65 61 74 6f |t, OSTyp|e creato|
|000001e0| 72 29 0d 7b 0d 09 49 43 | 45 72 72 6f 72 20 6a 75 |r).{..IC|Error ju|
|000001f0| 6e 6b 3b 0d 09 49 43 45 | 72 72 6f 72 20 65 72 72 |nk;..ICE|rror err|
|00000200| 3b 0d 09 6c 6f 6e 67 20 | 72 65 73 70 6f 6e 73 65 |;..long |response|
|00000210| 3b 0d 09 73 74 72 75 63 | 74 20 7b 0d 09 09 63 68 |;..struc|t {...ch|
|00000220| 61 72 20 66 6c 61 67 73 | 3b 0d 09 09 63 68 61 72 |ar flags|;...char|
|00000230| 20 73 69 7a 65 3b 0d 09 | 09 73 68 6f 72 74 20 77 | size;..|.short w|
|00000240| 68 61 74 3b 0d 09 09 2f | 2f 0d 09 09 4f 53 54 79 |hat;.../|/...OSTy|
|00000250| 70 65 20 63 72 65 61 74 | 6f 72 3b 0d 09 09 2f 2f |pe creat|or;...//|
|00000260| 0d 09 09 49 43 49 6e 73 | 74 61 6e 63 65 20 69 6e |...ICIns|tance in|
|00000270| 73 74 3b 0d 09 7d 20 73 | 74 61 72 74 5f 63 6f 6d |st;..} s|tart_com|
|00000280| 70 6f 6e 65 6e 74 5f 70 | 61 72 61 6d 73 3b 0d 09 |ponent_p|arams;..|
|00000290| 0d 09 2a 69 6e 73 74 20 | 3d 20 6e 69 6c 3b 0d 09 |..*inst |= nil;..|
|000002a0| 69 66 20 28 47 65 73 74 | 61 6c 74 28 67 65 73 74 |if (Gest|alt(gest|
|000002b0| 61 6c 74 43 6f 6d 70 6f | 6e 65 6e 74 4d 67 72 2c |altCompo|nentMgr,|
|000002c0| 20 26 72 65 73 70 6f 6e | 73 65 29 20 3d 3d 20 6e | &respon|se) == n|
|000002d0| 6f 45 72 72 29 20 7b 0d | 09 09 2a 69 6e 73 74 20 |oErr) {.|..*inst |
|000002e0| 3d 20 28 49 43 49 6e 73 | 74 61 6e 63 65 29 20 4f |= (ICIns|tance) O|
|000002f0| 70 65 6e 44 65 66 61 75 | 6c 74 43 6f 6d 70 6f 6e |penDefau|ltCompon|
|00000300| 65 6e 74 28 69 6e 74 65 | 72 6e 65 74 43 6f 6e 66 |ent(inte|rnetConf|
|00000310| 69 67 75 72 61 74 69 6f | 6e 43 6f 6d 70 6f 6e 65 |iguratio|nCompone|
|00000320| 6e 74 54 79 70 65 2c 20 | 69 6e 74 65 72 6e 65 74 |ntType, |internet|
|00000330| 43 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 43 6f 6d |Configur|ationCom|
|00000340| 70 6f 6e 65 6e 74 53 75 | 62 54 79 70 65 29 3b 0d |ponentSu|bType);.|
|00000350| 09 7d 3b 0d 09 69 66 20 | 28 2a 69 6e 73 74 20 3d |.};..if |(*inst =|
|00000360| 3d 20 6e 69 6c 29 20 7b | 0d 09 09 65 72 72 20 3d |= nil) {|...err =|
|00000370| 20 62 61 64 43 6f 6d 70 | 6f 6e 65 6e 74 49 6e 73 | badComp|onentIns|
|00000380| 74 61 6e 63 65 3b 0d 09 | 7d 20 65 6c 73 65 20 7b |tance;..|} else {|
|00000390| 0d 09 09 73 74 61 72 74 | 5f 63 6f 6d 70 6f 6e 65 |...start|_compone|
|000003a0| 6e 74 5f 70 61 72 61 6d | 73 2e 66 6c 61 67 73 20 |nt_param|s.flags |
|000003b0| 3d 20 30 3b 0d 09 09 73 | 74 61 72 74 5f 63 6f 6d |= 0;...s|tart_com|
|000003c0| 70 6f 6e 65 6e 74 5f 70 | 61 72 61 6d 73 2e 73 69 |ponent_p|arams.si|
|000003d0| 7a 65 20 3d 20 34 3b 0d | 09 09 73 74 61 72 74 5f |ze = 4;.|..start_|
|000003e0| 63 6f 6d 70 6f 6e 65 6e | 74 5f 70 61 72 61 6d 73 |componen|t_params|
|000003f0| 2e 77 68 61 74 20 3d 20 | 30 3b 0d 09 09 73 74 61 |.what = |0;...sta|
|00000400| 72 74 5f 63 6f 6d 70 6f | 6e 65 6e 74 5f 70 61 72 |rt_compo|nent_par|
|00000410| 61 6d 73 2e 63 72 65 61 | 74 6f 72 20 3d 20 63 72 |ams.crea|tor = cr|
|00000420| 65 61 74 6f 72 3b 0d 09 | 09 73 74 61 72 74 5f 63 |eator;..|.start_c|
|00000430| 6f 6d 70 6f 6e 65 6e 74 | 5f 70 61 72 61 6d 73 2e |omponent|_params.|
|00000440| 69 6e 73 74 20 3d 20 2a | 69 6e 73 74 3b 0d 09 09 |inst = *|inst;...|
|00000450| 65 72 72 20 3d 20 43 61 | 6c 6c 55 6e 69 76 65 72 |err = Ca|llUniver|
|00000460| 73 61 6c 50 72 6f 63 28 | 43 61 6c 6c 43 6f 6d 70 |salProc(|CallComp|
|00000470| 6f 6e 65 6e 74 55 50 50 | 2c 20 75 70 70 43 61 6c |onentUPP|, uppCal|
|00000480| 6c 43 6f 6d 70 6f 6e 65 | 6e 74 50 72 6f 63 49 6e |lCompone|ntProcIn|
|00000490| 66 6f 2c 20 26 73 74 61 | 72 74 5f 63 6f 6d 70 6f |fo, &sta|rt_compo|
|000004a0| 6e 65 6e 74 5f 70 61 72 | 61 6d 73 29 3b 0d 09 09 |nent_par|ams);...|
|000004b0| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|000004c0| 29 20 7b 0d 09 09 09 6a | 75 6e 6b 20 3d 20 43 6c |) {....j|unk = Cl|
|000004d0| 6f 73 65 43 6f 6d 70 6f | 6e 65 6e 74 28 28 43 6f |oseCompo|nent((Co|
|000004e0| 6d 70 6f 6e 65 6e 74 49 | 6e 73 74 61 6e 63 65 29 |mponentI|nstance)|
|000004f0| 20 2a 69 6e 73 74 29 3b | 0d 09 09 09 2a 69 6e 73 | *inst);|....*ins|
|00000500| 74 20 3d 20 6e 69 6c 3b | 0d 09 09 7d 3b 0d 09 7d |t = nil;|...};..}|
|00000510| 3b 0d 09 72 65 74 75 72 | 6e 28 65 72 72 29 3b 0d |;..retur|n(err);.|
|00000520| 7d 0d 0d 70 61 73 63 61 | 6c 20 49 43 45 72 72 6f |}..pasca|l ICErro|
|00000530| 72 20 49 43 53 74 6f 70 | 28 49 43 49 6e 73 74 61 |r ICStop|(ICInsta|
|00000540| 6e 63 65 20 69 6e 73 74 | 29 0d 7b 0d 09 49 43 45 |nce inst|).{..ICE|
|00000550| 72 72 6f 72 20 65 72 72 | 3b 0d 09 49 43 45 72 72 |rror err|;..ICErr|
|00000560| 6f 72 20 65 72 72 32 3b | 0d 09 73 74 72 75 63 74 |or err2;|..struct|
|00000570| 20 7b 0d 09 09 63 68 61 | 72 20 66 6c 61 67 73 3b | {...cha|r flags;|
|00000580| 0d 09 09 63 68 61 72 20 | 73 69 7a 65 3b 0d 09 09 |...char |size;...|
|00000590| 73 68 6f 72 74 20 77 68 | 61 74 3b 0d 09 09 2f 2f |short wh|at;...//|
|000005a0| 0d 09 09 2f 2f 0d 09 09 | 49 43 49 6e 73 74 61 6e |...//...|ICInstan|
|000005b0| 63 65 20 69 6e 73 74 3b | 0d 09 7d 20 73 74 6f 70 |ce inst;|..} stop|
|000005c0| 5f 63 6f 6d 70 6f 6e 65 | 6e 74 5f 70 61 72 61 6d |_compone|nt_param|
|000005d0| 73 3b 0d 09 0d 09 73 74 | 6f 70 5f 63 6f 6d 70 6f |s;....st|op_compo|
|000005e0| 6e 65 6e 74 5f 70 61 72 | 61 6d 73 2e 66 6c 61 67 |nent_par|ams.flag|
|000005f0| 73 20 3d 20 30 3b 0d 09 | 73 74 6f 70 5f 63 6f 6d |s = 0;..|stop_com|
|00000600| 70 6f 6e 65 6e 74 5f 70 | 61 72 61 6d 73 2e 73 69 |ponent_p|arams.si|
|00000610| 7a 65 20 3d 20 30 3b 0d | 09 73 74 6f 70 5f 63 6f |ze = 0;.|.stop_co|
|00000620| 6d 70 6f 6e 65 6e 74 5f | 70 61 72 61 6d 73 2e 77 |mponent_|params.w|
|00000630| 68 61 74 20 3d 20 31 3b | 0d 09 73 74 6f 70 5f 63 |hat = 1;|..stop_c|
|00000640| 6f 6d 70 6f 6e 65 6e 74 | 5f 70 61 72 61 6d 73 2e |omponent|_params.|
|00000650| 69 6e 73 74 20 3d 20 69 | 6e 73 74 3b 0d 09 65 72 |inst = i|nst;..er|
|00000660| 72 20 3d 20 43 61 6c 6c | 55 6e 69 76 65 72 73 61 |r = Call|Universa|
|00000670| 6c 50 72 6f 63 28 43 61 | 6c 6c 43 6f 6d 70 6f 6e |lProc(Ca|llCompon|
|00000680| 65 6e 74 55 50 50 2c 20 | 75 70 70 43 61 6c 6c 43 |entUPP, |uppCallC|
|00000690| 6f 6d 70 6f 6e 65 6e 74 | 50 72 6f 63 49 6e 66 6f |omponent|ProcInfo|
|000006a0| 2c 20 26 73 74 6f 70 5f | 63 6f 6d 70 6f 6e 65 6e |, &stop_|componen|
|000006b0| 74 5f 70 61 72 61 6d 73 | 29 3b 0d 09 65 72 72 32 |t_params|);..err2|
|000006c0| 20 3d 20 43 6c 6f 73 65 | 43 6f 6d 70 6f 6e 65 6e | = Close|Componen|
|000006d0| 74 28 28 43 6f 6d 70 6f | 6e 65 6e 74 49 6e 73 74 |t((Compo|nentInst|
|000006e0| 61 6e 63 65 29 20 69 6e | 73 74 29 3b 0d 09 69 66 |ance) in|st);..if|
|000006f0| 20 28 65 72 72 20 3d 3d | 20 6e 6f 45 72 72 29 20 | (err ==| noErr) |
|00000700| 7b 0d 09 09 65 72 72 20 | 3d 20 65 72 72 32 3b 0d |{...err |= err2;.|
|00000710| 09 7d 3b 0d 09 72 65 74 | 75 72 6e 28 65 72 72 29 |.};..ret|urn(err)|
|00000720| 3b 0d 7d 0d 0d 70 61 73 | 63 61 6c 20 49 43 45 72 |;.}..pas|cal ICEr|
|00000730| 72 6f 72 20 49 43 46 69 | 6e 64 43 6f 6e 66 69 67 |ror ICFi|ndConfig|
|00000740| 46 69 6c 65 28 49 43 49 | 6e 73 74 61 6e 63 65 20 |File(ICI|nstance |
|00000750| 69 6e 73 74 2c 20 73 68 | 6f 72 74 20 63 6f 75 6e |inst, sh|ort coun|
|00000760| 74 2c 20 49 43 44 69 72 | 53 70 65 63 41 72 72 61 |t, ICDir|SpecArra|
|00000770| 79 50 74 72 20 66 6f 6c | 64 65 72 73 29 0d 7b 0d |yPtr fol|ders).{.|
|00000780| 09 73 74 72 75 63 74 20 | 7b 0d 09 09 63 68 61 72 |.struct |{...char|
|00000790| 20 66 6c 61 67 73 3b 0d | 09 09 63 68 61 72 20 73 | flags;.|..char s|
|000007a0| 69 7a 65 3b 0d 09 09 73 | 68 6f 72 74 20 77 68 61 |ize;...s|hort wha|
|000007b0| 74 3b 0d 09 09 2f 2f 0d | 09 09 49 43 44 69 72 53 |t;...//.|..ICDirS|
|000007c0| 70 65 63 41 72 72 61 79 | 50 74 72 20 66 6f 6c 64 |pecArray|Ptr fold|
|000007d0| 65 72 73 3b 0d 09 09 73 | 68 6f 72 74 20 63 6f 75 |ers;...s|hort cou|
|000007e0| 6e 74 3b 0d 09 09 2f 2f | 0d 09 09 49 43 49 6e 73 |nt;...//|...ICIns|
|000007f0| 74 61 6e 63 65 20 69 6e | 73 74 3b 0d 09 7d 20 66 |tance in|st;..} f|
|00000800| 69 6e 64 5f 63 6f 6e 66 | 69 67 5f 66 69 6c 65 5f |ind_conf|ig_file_|
|00000810| 70 61 72 61 6d 73 3b 0d | 09 0d 09 66 69 6e 64 5f |params;.|...find_|
|00000820| 63 6f 6e 66 69 67 5f 66 | 69 6c 65 5f 70 61 72 61 |config_f|ile_para|
|00000830| 6d 73 2e 66 6c 61 67 73 | 20 3d 20 30 3b 0d 09 66 |ms.flags| = 0;..f|
|00000840| 69 6e 64 5f 63 6f 6e 66 | 69 67 5f 66 69 6c 65 5f |ind_conf|ig_file_|
|00000850| 70 61 72 61 6d 73 2e 73 | 69 7a 65 20 3d 20 36 3b |params.s|ize = 6;|
|00000860| 0d 09 66 69 6e 64 5f 63 | 6f 6e 66 69 67 5f 66 69 |..find_c|onfig_fi|
|00000870| 6c 65 5f 70 61 72 61 6d | 73 2e 77 68 61 74 20 3d |le_param|s.what =|
|00000880| 20 32 3b 0d 09 66 69 6e | 64 5f 63 6f 6e 66 69 67 | 2;..fin|d_config|
|00000890| 5f 66 69 6c 65 5f 70 61 | 72 61 6d 73 2e 66 6f 6c |_file_pa|rams.fol|
|000008a0| 64 65 72 73 20 3d 20 66 | 6f 6c 64 65 72 73 3b 0d |ders = f|olders;.|
|000008b0| 09 66 69 6e 64 5f 63 6f | 6e 66 69 67 5f 66 69 6c |.find_co|nfig_fil|
|000008c0| 65 5f 70 61 72 61 6d 73 | 2e 63 6f 75 6e 74 20 3d |e_params|.count =|
|000008d0| 20 63 6f 75 6e 74 3b 0d | 09 66 69 6e 64 5f 63 6f | count;.|.find_co|
|000008e0| 6e 66 69 67 5f 66 69 6c | 65 5f 70 61 72 61 6d 73 |nfig_fil|e_params|
|000008f0| 2e 69 6e 73 74 20 3d 20 | 69 6e 73 74 3b 0d 09 72 |.inst = |inst;..r|
|00000900| 65 74 75 72 6e 28 43 61 | 6c 6c 55 6e 69 76 65 72 |eturn(Ca|llUniver|
|00000910| 73 61 6c 50 72 6f 63 28 | 43 61 6c 6c 43 6f 6d 70 |salProc(|CallComp|
|00000920| 6f 6e 65 6e 74 55 50 50 | 2c 20 75 70 70 43 61 6c |onentUPP|, uppCal|
|00000930| 6c 43 6f 6d 70 6f 6e 65 | 6e 74 50 72 6f 63 49 6e |lCompone|ntProcIn|
|00000940| 66 6f 2c 20 26 66 69 6e | 64 5f 63 6f 6e 66 69 67 |fo, &fin|d_config|
|00000950| 5f 66 69 6c 65 5f 70 61 | 72 61 6d 73 29 29 3b 0d |_file_pa|rams));.|
|00000960| 7d 0d 0d 70 61 73 63 61 | 6c 20 49 43 45 72 72 6f |}..pasca|l ICErro|
|00000970| 72 20 49 43 53 70 65 63 | 69 66 79 43 6f 6e 66 69 |r ICSpec|ifyConfi|
|00000980| 67 46 69 6c 65 28 49 43 | 49 6e 73 74 61 6e 63 65 |gFile(IC|Instance|
|00000990| 20 69 6e 73 74 2c 20 46 | 53 53 70 65 63 20 2a 63 | inst, F|SSpec *c|
|000009a0| 6f 6e 66 69 67 29 0d 7b | 0d 09 73 74 72 75 63 74 |onfig).{|..struct|
|000009b0| 20 7b 0d 09 09 63 68 61 | 72 20 66 6c 61 67 73 3b | {...cha|r flags;|
|000009c0| 0d 09 09 63 68 61 72 20 | 73 69 7a 65 3b 0d 09 09 |...char |size;...|
|000009d0| 73 68 6f 72 74 20 77 68 | 61 74 3b 0d 09 09 2f 2f |short wh|at;...//|
|000009e0| 0d 09 09 46 53 53 70 65 | 63 20 2a 63 6f 6e 66 69 |...FSSpe|c *confi|
|000009f0| 67 3b 0d 09 09 2f 2f 0d | 09 09 49 43 49 6e 73 74 |g;...//.|..ICInst|
|00000a00| 61 6e 63 65 20 69 6e 73 | 74 3b 0d 09 7d 20 73 70 |ance ins|t;..} sp|
|00000a10| 65 63 69 66 79 5f 63 6f | 6e 66 69 67 5f 66 69 6c |ecify_co|nfig_fil|
|00000a20| 65 5f 70 61 72 61 6d 73 | 3b 0d 09 0d 09 73 70 65 |e_params|;....spe|
|00000a30| 63 69 66 79 5f 63 6f 6e | 66 69 67 5f 66 69 6c 65 |cify_con|fig_file|
|00000a40| 5f 70 61 72 61 6d 73 2e | 66 6c 61 67 73 20 3d 20 |_params.|flags = |
|00000a50| 30 3b 0d 09 73 70 65 63 | 69 66 79 5f 63 6f 6e 66 |0;..spec|ify_conf|
|00000a60| 69 67 5f 66 69 6c 65 5f | 70 61 72 61 6d 73 2e 73 |ig_file_|params.s|
|00000a70| 69 7a 65 20 3d 20 34 3b | 0d 09 73 70 65 63 69 66 |ize = 4;|..specif|
|00000a80| 79 5f 63 6f 6e 66 69 67 | 5f 66 69 6c 65 5f 70 61 |y_config|_file_pa|
|00000a90| 72 61 6d 73 2e 77 68 61 | 74 20 3d 20 33 3b 0d 09 |rams.wha|t = 3;..|
|00000aa0| 73 70 65 63 69 66 79 5f | 63 6f 6e 66 69 67 5f 66 |specify_|config_f|
|00000ab0| 69 6c 65 5f 70 61 72 61 | 6d 73 2e 63 6f 6e 66 69 |ile_para|ms.confi|
|00000ac0| 67 20 3d 20 63 6f 6e 66 | 69 67 3b 0d 09 73 70 65 |g = conf|ig;..spe|
|00000ad0| 63 69 66 79 5f 63 6f 6e | 66 69 67 5f 66 69 6c 65 |cify_con|fig_file|
|00000ae0| 5f 70 61 72 61 6d 73 2e | 69 6e 73 74 20 3d 20 69 |_params.|inst = i|
|00000af0| 6e 73 74 3b 0d 09 72 65 | 74 75 72 6e 28 43 61 6c |nst;..re|turn(Cal|
|00000b00| 6c 55 6e 69 76 65 72 73 | 61 6c 50 72 6f 63 28 43 |lUnivers|alProc(C|
|00000b10| 61 6c 6c 43 6f 6d 70 6f | 6e 65 6e 74 55 50 50 2c |allCompo|nentUPP,|
|00000b20| 20 75 70 70 43 61 6c 6c | 43 6f 6d 70 6f 6e 65 6e | uppCall|Componen|
|00000b30| 74 50 72 6f 63 49 6e 66 | 6f 2c 20 26 73 70 65 63 |tProcInf|o, &spec|
|00000b40| 69 66 79 5f 63 6f 6e 66 | 69 67 5f 66 69 6c 65 5f |ify_conf|ig_file_|
|00000b50| 70 61 72 61 6d 73 29 29 | 3b 0d 7d 0d 0d 70 61 73 |params))|;.}..pas|
|00000b60| 63 61 6c 20 49 43 45 72 | 72 6f 72 20 49 43 47 65 |cal ICEr|ror ICGe|
|00000b70| 74 53 65 65 64 28 49 43 | 49 6e 73 74 61 6e 63 65 |tSeed(IC|Instance|
|00000b80| 20 69 6e 73 74 2c 20 6c | 6f 6e 67 20 2a 73 65 65 | inst, l|ong *see|
|00000b90| 64 29 0d 7b 0d 09 73 74 | 72 75 63 74 20 7b 0d 09 |d).{..st|ruct {..|
|00000ba0| 09 63 68 61 72 20 66 6c | 61 67 73 3b 0d 09 09 63 |.char fl|ags;...c|
|00000bb0| 68 61 72 20 73 69 7a 65 | 3b 0d 09 09 73 68 6f 72 |har size|;...shor|
|00000bc0| 74 20 77 68 61 74 3b 0d | 09 09 2f 2f 0d 09 09 6c |t what;.|..//...l|
|00000bd0| 6f 6e 67 20 2a 73 65 65 | 64 3b 0d 09 09 2f 2f 0d |ong *see|d;...//.|
|00000be0| 09 09 49 43 49 6e 73 74 | 61 6e 63 65 20 69 6e 73 |..ICInst|ance ins|
|00000bf0| 74 3b 0d 09 7d 20 67 65 | 74 5f 73 65 65 64 5f 70 |t;..} ge|t_seed_p|
|00000c00| 61 72 61 6d 73 3b 0d 09 | 0d 09 67 65 74 5f 73 65 |arams;..|..get_se|
|00000c10| 65 64 5f 70 61 72 61 6d | 73 2e 66 6c 61 67 73 20 |ed_param|s.flags |
|00000c20| 3d 20 30 3b 0d 09 67 65 | 74 5f 73 65 65 64 5f 70 |= 0;..ge|t_seed_p|
|00000c30| 61 72 61 6d 73 2e 73 69 | 7a 65 20 3d 20 34 3b 0d |arams.si|ze = 4;.|
|00000c40| 09 67 65 74 5f 73 65 65 | 64 5f 70 61 72 61 6d 73 |.get_see|d_params|
|00000c50| 2e 77 68 61 74 20 3d 20 | 34 3b 0d 09 67 65 74 5f |.what = |4;..get_|
|00000c60| 73 65 65 64 5f 70 61 72 | 61 6d 73 2e 73 65 65 64 |seed_par|ams.seed|
|00000c70| 20 3d 20 73 65 65 64 3b | 0d 09 67 65 74 5f 73 65 | = seed;|..get_se|
|00000c80| 65 64 5f 70 61 72 61 6d | 73 2e 69 6e 73 74 20 3d |ed_param|s.inst =|
|00000c90| 20 69 6e 73 74 3b 0d 09 | 72 65 74 75 72 6e 28 43 | inst;..|return(C|
|00000ca0| 61 6c 6c 55 6e 69 76 65 | 72 73 61 6c 50 72 6f 63 |allUnive|rsalProc|
|00000cb0| 28 43 61 6c 6c 43 6f 6d | 70 6f 6e 65 6e 74 55 50 |(CallCom|ponentUP|
|00000cc0| 50 2c 20 75 70 70 43 61 | 6c 6c 43 6f 6d 70 6f 6e |P, uppCa|llCompon|
|00000cd0| 65 6e 74 50 72 6f 63 49 | 6e 66 6f 2c 20 26 67 65 |entProcI|nfo, &ge|
|00000ce0| 74 5f 73 65 65 64 5f 70 | 61 72 61 6d 73 29 29 3b |t_seed_p|arams));|
|00000cf0| 0d 7d 0d 0d 70 61 73 63 | 61 6c 20 49 43 45 72 72 |.}..pasc|al ICErr|
|00000d00| 6f 72 20 49 43 42 65 67 | 69 6e 28 49 43 49 6e 73 |or ICBeg|in(ICIns|
|00000d10| 74 61 6e 63 65 20 69 6e | 73 74 2c 20 49 43 50 65 |tance in|st, ICPe|
|00000d20| 72 6d 20 70 65 72 6d 29 | 0d 7b 0d 09 73 74 72 75 |rm perm)|.{..stru|
|00000d30| 63 74 20 7b 0d 09 09 63 | 68 61 72 20 66 6c 61 67 |ct {...c|har flag|
|00000d40| 73 3b 0d 09 09 63 68 61 | 72 20 73 69 7a 65 3b 0d |s;...cha|r size;.|
|00000d50| 09 09 73 68 6f 72 74 20 | 77 68 61 74 3b 0d 09 09 |..short |what;...|
|00000d60| 2f 2f 0d 09 09 49 43 50 | 65 72 6d 20 70 65 72 6d |//...ICP|erm perm|
|00000d70| 3b 0d 09 09 2f 2f 0d 09 | 09 49 43 49 6e 73 74 61 |;...//..|.ICInsta|
|00000d80| 6e 63 65 20 69 6e 73 74 | 3b 0d 09 7d 20 62 65 67 |nce inst|;..} beg|
|00000d90| 69 6e 5f 70 61 72 61 6d | 73 3b 0d 09 0d 09 62 65 |in_param|s;....be|
|00000da0| 67 69 6e 5f 70 61 72 61 | 6d 73 2e 66 6c 61 67 73 |gin_para|ms.flags|
|00000db0| 20 3d 20 30 3b 0d 09 62 | 65 67 69 6e 5f 70 61 72 | = 0;..b|egin_par|
|00000dc0| 61 6d 73 2e 73 69 7a 65 | 20 3d 20 32 3b 0d 09 62 |ams.size| = 2;..b|
|00000dd0| 65 67 69 6e 5f 70 61 72 | 61 6d 73 2e 77 68 61 74 |egin_par|ams.what|
|00000de0| 20 3d 20 35 3b 0d 09 62 | 65 67 69 6e 5f 70 61 72 | = 5;..b|egin_par|
|00000df0| 61 6d 73 2e 70 65 72 6d | 20 3d 20 70 65 72 6d 3b |ams.perm| = perm;|
|00000e00| 0d 09 62 65 67 69 6e 5f | 70 61 72 61 6d 73 2e 69 |..begin_|params.i|
|00000e10| 6e 73 74 20 3d 20 69 6e | 73 74 3b 0d 09 72 65 74 |nst = in|st;..ret|
|00000e20| 75 72 6e 28 43 61 6c 6c | 55 6e 69 76 65 72 73 61 |urn(Call|Universa|
|00000e30| 6c 50 72 6f 63 28 43 61 | 6c 6c 43 6f 6d 70 6f 6e |lProc(Ca|llCompon|
|00000e40| 65 6e 74 55 50 50 2c 20 | 75 70 70 43 61 6c 6c 43 |entUPP, |uppCallC|
|00000e50| 6f 6d 70 6f 6e 65 6e 74 | 50 72 6f 63 49 6e 66 6f |omponent|ProcInfo|
|00000e60| 2c 20 26 62 65 67 69 6e | 5f 70 61 72 61 6d 73 29 |, &begin|_params)|
|00000e70| 29 3b 0d 7d 0d 0d 70 61 | 73 63 61 6c 20 49 43 45 |);.}..pa|scal ICE|
|00000e80| 72 72 6f 72 20 49 43 47 | 65 74 50 72 65 66 28 49 |rror ICG|etPref(I|
|00000e90| 43 49 6e 73 74 61 6e 63 | 65 20 69 6e 73 74 2c 20 |CInstanc|e inst, |
|00000ea0| 43 6f 6e 73 74 53 74 72 | 32 35 35 50 61 72 61 6d |ConstStr|255Param|
|00000eb0| 20 6b 65 79 2c 20 49 43 | 41 74 74 72 20 2a 61 74 | key, IC|Attr *at|
|00000ec0| 74 72 2c 20 50 74 72 20 | 62 75 66 2c 20 6c 6f 6e |tr, Ptr |buf, lon|
|00000ed0| 67 20 2a 73 69 7a 65 29 | 0d 7b 0d 09 73 74 72 75 |g *size)|.{..stru|
|00000ee0| 63 74 20 7b 0d 09 09 63 | 68 61 72 20 66 6c 61 67 |ct {...c|har flag|
|00000ef0| 73 3b 0d 09 09 63 68 61 | 72 20 73 69 7a 65 3b 0d |s;...cha|r size;.|
|00000f00| 09 09 73 68 6f 72 74 20 | 77 68 61 74 3b 0d 09 09 |..short |what;...|
|00000f10| 2f 2f 0d 09 09 6c 6f 6e | 67 20 2a 70 73 69 7a 65 |//...lon|g *psize|
|00000f20| 3b 0d 09 09 50 74 72 20 | 62 75 66 3b 0d 09 09 49 |;...Ptr |buf;...I|
|00000f30| 43 41 74 74 72 20 2a 61 | 74 74 72 3b 0d 09 09 53 |CAttr *a|ttr;...S|
|00000f40| 74 72 32 35 35 20 2a 6b | 65 79 3b 0d 09 09 2f 2f |tr255 *k|ey;...//|
|00000f50| 0d 09 09 49 43 49 6e 73 | 74 61 6e 63 65 20 69 6e |...ICIns|tance in|
|00000f60| 73 74 3b 0d 09 7d 20 67 | 65 74 5f 70 72 65 66 5f |st;..} g|et_pref_|
|00000f70| 70 61 72 61 6d 73 3b 0d | 09 0d 09 67 65 74 5f 70 |params;.|...get_p|
|00000f80| 72 65 66 5f 70 61 72 61 | 6d 73 2e 66 6c 61 67 73 |ref_para|ms.flags|
|00000f90| 20 3d 20 30 3b 0d 09 67 | 65 74 5f 70 72 65 66 5f | = 0;..g|et_pref_|
|00000fa0| 70 61 72 61 6d 73 2e 73 | 69 7a 65 20 3d 20 31 36 |params.s|ize = 16|
|00000fb0| 3b 0d 09 67 65 74 5f 70 | 72 65 66 5f 70 61 72 61 |;..get_p|ref_para|
|00000fc0| 6d 73 2e 77 68 61 74 20 | 3d 20 36 3b 0d 09 2f 2f |ms.what |= 6;..//|
|00000fd0| 0d 09 67 65 74 5f 70 72 | 65 66 5f 70 61 72 61 6d |..get_pr|ef_param|
|00000fe0| 73 2e 70 73 69 7a 65 20 | 3d 20 73 69 7a 65 3b 0d |s.psize |= size;.|
|00000ff0| 09 67 65 74 5f 70 72 65 | 66 5f 70 61 72 61 6d 73 |.get_pre|f_params|
|00001000| 2e 62 75 66 20 3d 20 62 | 75 66 3b 0d 09 67 65 74 |.buf = b|uf;..get|
|00001010| 5f 70 72 65 66 5f 70 61 | 72 61 6d 73 2e 61 74 74 |_pref_pa|rams.att|
|00001020| 72 20 3d 20 61 74 74 72 | 3b 0d 09 67 65 74 5f 70 |r = attr|;..get_p|
|00001030| 72 65 66 5f 70 61 72 61 | 6d 73 2e 6b 65 79 20 3d |ref_para|ms.key =|
|00001040| 20 28 53 74 72 32 35 35 | 20 2a 29 20 6b 65 79 3b | (Str255| *) key;|
|00001050| 0d 09 2f 2f 0d 09 67 65 | 74 5f 70 72 65 66 5f 70 |..//..ge|t_pref_p|
|00001060| 61 72 61 6d 73 2e 69 6e | 73 74 20 3d 20 69 6e 73 |arams.in|st = ins|
|00001070| 74 3b 0d 09 72 65 74 75 | 72 6e 28 43 61 6c 6c 55 |t;..retu|rn(CallU|
|00001080| 6e 69 76 65 72 73 61 6c | 50 72 6f 63 28 43 61 6c |niversal|Proc(Cal|
|00001090| 6c 43 6f 6d 70 6f 6e 65 | 6e 74 55 50 50 2c 20 75 |lCompone|ntUPP, u|
|000010a0| 70 70 43 61 6c 6c 43 6f | 6d 70 6f 6e 65 6e 74 50 |ppCallCo|mponentP|
|000010b0| 72 6f 63 49 6e 66 6f 2c | 20 26 67 65 74 5f 70 72 |rocInfo,| &get_pr|
|000010c0| 65 66 5f 70 61 72 61 6d | 73 29 29 3b 0d 7d 0d 0d |ef_param|s));.}..|
|000010d0| 70 61 73 63 61 6c 20 49 | 43 45 72 72 6f 72 20 49 |pascal I|CError I|
|000010e0| 43 53 65 74 50 72 65 66 | 28 49 43 49 6e 73 74 61 |CSetPref|(ICInsta|
|000010f0| 6e 63 65 20 69 6e 73 74 | 2c 20 43 6f 6e 73 74 53 |nce inst|, ConstS|
|00001100| 74 72 32 35 35 50 61 72 | 61 6d 20 6b 65 79 2c 20 |tr255Par|am key, |
|00001110| 49 43 41 74 74 72 20 61 | 74 74 72 2c 20 50 74 72 |ICAttr a|ttr, Ptr|
|00001120| 20 62 75 66 2c 20 6c 6f | 6e 67 20 73 69 7a 65 29 | buf, lo|ng size)|
|00001130| 0d 7b 0d 09 73 74 72 75 | 63 74 20 7b 0d 09 09 63 |.{..stru|ct {...c|
|00001140| 68 61 72 20 66 6c 61 67 | 73 3b 0d 09 09 63 68 61 |har flag|s;...cha|
|00001150| 72 20 73 69 7a 65 3b 0d | 09 09 73 68 6f 72 74 20 |r size;.|..short |
|00001160| 77 68 61 74 3b 0d 09 09 | 2f 2f 0d 09 09 6c 6f 6e |what;...|//...lon|
|00001170| 67 20 70 73 69 7a 65 3b | 0d 09 09 50 74 72 20 62 |g psize;|...Ptr b|
|00001180| 75 66 3b 0d 09 09 49 43 | 41 74 74 72 20 61 74 74 |uf;...IC|Attr att|
|00001190| 72 3b 0d 09 09 53 74 72 | 32 35 35 20 2a 6b 65 79 |r;...Str|255 *key|
|000011a0| 3b 0d 09 09 2f 2f 0d 09 | 09 49 43 49 6e 73 74 61 |;...//..|.ICInsta|
|000011b0| 6e 63 65 20 69 6e 73 74 | 3b 0d 09 7d 20 73 65 74 |nce inst|;..} set|
|000011c0| 5f 70 72 65 66 5f 70 61 | 72 61 6d 73 3b 0d 09 0d |_pref_pa|rams;...|
|000011d0| 09 73 65 74 5f 70 72 65 | 66 5f 70 61 72 61 6d 73 |.set_pre|f_params|
|000011e0| 2e 66 6c 61 67 73 20 3d | 20 30 3b 0d 09 73 65 74 |.flags =| 0;..set|
|000011f0| 5f 70 72 65 66 5f 70 61 | 72 61 6d 73 2e 73 69 7a |_pref_pa|rams.siz|
|00001200| 65 20 3d 20 31 36 3b 0d | 09 73 65 74 5f 70 72 65 |e = 16;.|.set_pre|
|00001210| 66 5f 70 61 72 61 6d 73 | 2e 77 68 61 74 20 3d 20 |f_params|.what = |
|00001220| 37 3b 0d 09 2f 2f 0d 09 | 73 65 74 5f 70 72 65 66 |7;..//..|set_pref|
|00001230| 5f 70 61 72 61 6d 73 2e | 70 73 69 7a 65 20 3d 20 |_params.|psize = |
|00001240| 73 69 7a 65 3b 0d 09 73 | 65 74 5f 70 72 65 66 5f |size;..s|et_pref_|
|00001250| 70 61 72 61 6d 73 2e 62 | 75 66 20 3d 20 62 75 66 |params.b|uf = buf|
|00001260| 3b 0d 09 73 65 74 5f 70 | 72 65 66 5f 70 61 72 61 |;..set_p|ref_para|
|00001270| 6d 73 2e 61 74 74 72 20 | 3d 20 61 74 74 72 3b 0d |ms.attr |= attr;.|
|00001280| 09 73 65 74 5f 70 72 65 | 66 5f 70 61 72 61 6d 73 |.set_pre|f_params|
|00001290| 2e 6b 65 79 20 3d 20 28 | 53 74 72 32 35 35 20 2a |.key = (|Str255 *|
|000012a0| 29 20 6b 65 79 3b 0d 09 | 2f 2f 0d 09 73 65 74 5f |) key;..|//..set_|
|000012b0| 70 72 65 66 5f 70 61 72 | 61 6d 73 2e 69 6e 73 74 |pref_par|ams.inst|
|000012c0| 20 3d 20 69 6e 73 74 3b | 0d 09 72 65 74 75 72 6e | = inst;|..return|
|000012d0| 28 43 61 6c 6c 55 6e 69 | 76 65 72 73 61 6c 50 72 |(CallUni|versalPr|
|000012e0| 6f 63 28 43 61 6c 6c 43 | 6f 6d 70 6f 6e 65 6e 74 |oc(CallC|omponent|
|000012f0| 55 50 50 2c 20 75 70 70 | 43 61 6c 6c 43 6f 6d 70 |UPP, upp|CallComp|
|00001300| 6f 6e 65 6e 74 50 72 6f | 63 49 6e 66 6f 2c 20 26 |onentPro|cInfo, &|
|00001310| 73 65 74 5f 70 72 65 66 | 5f 70 61 72 61 6d 73 29 |set_pref|_params)|
|00001320| 29 3b 0d 7d 0d 0d 70 61 | 73 63 61 6c 20 49 43 45 |);.}..pa|scal ICE|
|00001330| 72 72 6f 72 20 49 43 43 | 6f 75 6e 74 50 72 65 66 |rror ICC|ountPref|
|00001340| 28 49 43 49 6e 73 74 61 | 6e 63 65 20 69 6e 73 74 |(ICInsta|nce inst|
|00001350| 2c 20 6c 6f 6e 67 20 2a | 63 6f 75 6e 74 29 0d 7b |, long *|count).{|
|00001360| 0d 09 73 74 72 75 63 74 | 20 7b 0d 09 09 63 68 61 |..struct| {...cha|
|00001370| 72 20 66 6c 61 67 73 3b | 0d 09 09 63 68 61 72 20 |r flags;|...char |
|00001380| 73 69 7a 65 3b 0d 09 09 | 73 68 6f 72 74 20 77 68 |size;...|short wh|
|00001390| 61 74 3b 0d 09 09 2f 2f | 0d 09 09 6c 6f 6e 67 20 |at;...//|...long |
|000013a0| 2a 63 6f 75 6e 74 3b 0d | 09 09 2f 2f 0d 09 09 49 |*count;.|..//...I|
|000013b0| 43 49 6e 73 74 61 6e 63 | 65 20 69 6e 73 74 3b 0d |CInstanc|e inst;.|
|000013c0| 09 7d 20 63 6f 75 6e 74 | 5f 70 72 65 66 5f 70 61 |.} count|_pref_pa|
|000013d0| 72 61 6d 73 3b 0d 09 0d | 09 63 6f 75 6e 74 5f 70 |rams;...|.count_p|
|000013e0| 72 65 66 5f 70 61 72 61 | 6d 73 2e 66 6c 61 67 73 |ref_para|ms.flags|
|000013f0| 20 3d 20 30 3b 0d 09 63 | 6f 75 6e 74 5f 70 72 65 | = 0;..c|ount_pre|
|00001400| 66 5f 70 61 72 61 6d 73 | 2e 73 69 7a 65 20 3d 20 |f_params|.size = |
|00001410| 34 3b 0d 09 63 6f 75 6e | 74 5f 70 72 65 66 5f 70 |4;..coun|t_pref_p|
|00001420| 61 72 61 6d 73 2e 77 68 | 61 74 20 3d 20 38 3b 0d |arams.wh|at = 8;.|
|00001430| 09 63 6f 75 6e 74 5f 70 | 72 65 66 5f 70 61 72 61 |.count_p|ref_para|
|00001440| 6d 73 2e 63 6f 75 6e 74 | 20 3d 20 63 6f 75 6e 74 |ms.count| = count|
|00001450| 3b 0d 09 63 6f 75 6e 74 | 5f 70 72 65 66 5f 70 61 |;..count|_pref_pa|
|00001460| 72 61 6d 73 2e 69 6e 73 | 74 20 3d 20 69 6e 73 74 |rams.ins|t = inst|
|00001470| 3b 0d 09 72 65 74 75 72 | 6e 28 43 61 6c 6c 55 6e |;..retur|n(CallUn|
|00001480| 69 76 65 72 73 61 6c 50 | 72 6f 63 28 43 61 6c 6c |iversalP|roc(Call|
|00001490| 43 6f 6d 70 6f 6e 65 6e | 74 55 50 50 2c 20 75 70 |Componen|tUPP, up|
|000014a0| 70 43 61 6c 6c 43 6f 6d | 70 6f 6e 65 6e 74 50 72 |pCallCom|ponentPr|
|000014b0| 6f 63 49 6e 66 6f 2c 20 | 26 63 6f 75 6e 74 5f 70 |ocInfo, |&count_p|
|000014c0| 72 65 66 5f 70 61 72 61 | 6d 73 29 29 3b 0d 7d 0d |ref_para|ms));.}.|
|000014d0| 0d 70 61 73 63 61 6c 20 | 49 43 45 72 72 6f 72 20 |.pascal |ICError |
|000014e0| 49 43 47 65 74 49 6e 64 | 50 72 65 66 28 49 43 49 |ICGetInd|Pref(ICI|
|000014f0| 6e 73 74 61 6e 63 65 20 | 69 6e 73 74 2c 20 6c 6f |nstance |inst, lo|
|00001500| 6e 67 20 6e 2c 20 53 74 | 72 32 35 35 20 6b 65 79 |ng n, St|r255 key|
|00001510| 29 0d 7b 0d 09 73 74 72 | 75 63 74 20 7b 0d 09 09 |).{..str|uct {...|
|00001520| 63 68 61 72 20 66 6c 61 | 67 73 3b 0d 09 09 63 68 |char fla|gs;...ch|
|00001530| 61 72 20 73 69 7a 65 3b | 0d 09 09 73 68 6f 72 74 |ar size;|...short|
|00001540| 20 77 68 61 74 3b 0d 09 | 09 2f 2f 0d 09 09 53 74 | what;..|.//...St|
|00001550| 72 69 6e 67 50 74 72 20 | 6b 65 79 3b 0d 09 09 6c |ringPtr |key;...l|
|00001560| 6f 6e 67 20 6e 3b 0d 09 | 09 2f 2f 0d 09 09 49 43 |ong n;..|.//...IC|
|00001570| 49 6e 73 74 61 6e 63 65 | 20 69 6e 73 74 3b 0d 09 |Instance| inst;..|
|00001580| 7d 20 67 65 74 5f 69 6e | 64 5f 70 72 65 66 5f 70 |} get_in|d_pref_p|
|00001590| 61 72 61 6d 73 3b 0d 09 | 0d 09 67 65 74 5f 69 6e |arams;..|..get_in|
|000015a0| 64 5f 70 72 65 66 5f 70 | 61 72 61 6d 73 2e 66 6c |d_pref_p|arams.fl|
|000015b0| 61 67 73 20 3d 20 30 3b | 0d 09 67 65 74 5f 69 6e |ags = 0;|..get_in|
|000015c0| 64 5f 70 72 65 66 5f 70 | 61 72 61 6d 73 2e 73 69 |d_pref_p|arams.si|
|000015d0| 7a 65 20 3d 20 38 3b 0d | 09 67 65 74 5f 69 6e 64 |ze = 8;.|.get_ind|
|000015e0| 5f 70 72 65 66 5f 70 61 | 72 61 6d 73 2e 77 68 61 |_pref_pa|rams.wha|
|000015f0| 74 20 3d 20 39 3b 0d 09 | 2f 2f 0d 09 67 65 74 5f |t = 9;..|//..get_|
|00001600| 69 6e 64 5f 70 72 65 66 | 5f 70 61 72 61 6d 73 2e |ind_pref|_params.|
|00001610| 6b 65 79 20 3d 20 28 53 | 74 72 69 6e 67 50 74 72 |key = (S|tringPtr|
|00001620| 29 20 6b 65 79 3b 0d 09 | 67 65 74 5f 69 6e 64 5f |) key;..|get_ind_|
|00001630| 70 72 65 66 5f 70 61 72 | 61 6d 73 2e 6e 20 3d 20 |pref_par|ams.n = |
|00001640| 6e 3b 0d 09 2f 2f 0d 09 | 67 65 74 5f 69 6e 64 5f |n;..//..|get_ind_|
|00001650| 70 72 65 66 5f 70 61 72 | 61 6d 73 2e 69 6e 73 74 |pref_par|ams.inst|
|00001660| 20 3d 20 69 6e 73 74 3b | 0d 09 72 65 74 75 72 6e | = inst;|..return|
|00001670| 28 43 61 6c 6c 55 6e 69 | 76 65 72 73 61 6c 50 72 |(CallUni|versalPr|
|00001680| 6f 63 28 43 61 6c 6c 43 | 6f 6d 70 6f 6e 65 6e 74 |oc(CallC|omponent|
|00001690| 55 50 50 2c 20 75 70 70 | 43 61 6c 6c 43 6f 6d 70 |UPP, upp|CallComp|
|000016a0| 6f 6e 65 6e 74 50 72 6f | 63 49 6e 66 6f 2c 20 26 |onentPro|cInfo, &|
|000016b0| 67 65 74 5f 69 6e 64 5f | 70 72 65 66 5f 70 61 72 |get_ind_|pref_par|
|000016c0| 61 6d 73 29 29 3b 0d 7d | 0d 0d 70 61 73 63 61 6c |ams));.}|..pascal|
|000016d0| 20 49 43 45 72 72 6f 72 | 20 49 43 44 65 6c 65 74 | ICError| ICDelet|
|000016e0| 65 50 72 65 66 28 49 43 | 49 6e 73 74 61 6e 63 65 |ePref(IC|Instance|
|000016f0| 20 69 6e 73 74 2c 20 43 | 6f 6e 73 74 53 74 72 32 | inst, C|onstStr2|
|00001700| 35 35 50 61 72 61 6d 20 | 6b 65 79 29 0d 7b 0d 09 |55Param |key).{..|
|00001710| 73 74 72 75 63 74 20 7b | 0d 09 09 63 68 61 72 20 |struct {|...char |
|00001720| 66 6c 61 67 73 3b 0d 09 | 09 63 68 61 72 20 73 69 |flags;..|.char si|
|00001730| 7a 65 3b 0d 09 09 73 68 | 6f 72 74 20 77 68 61 74 |ze;...sh|ort what|
|00001740| 3b 0d 09 09 2f 2f 0d 09 | 09 53 74 72 32 35 35 20 |;...//..|.Str255 |
|00001750| 2a 6b 65 79 3b 0d 09 09 | 2f 2f 0d 09 09 49 43 49 |*key;...|//...ICI|
|00001760| 6e 73 74 61 6e 63 65 20 | 69 6e 73 74 3b 0d 09 7d |nstance |inst;..}|
|00001770| 20 64 65 6c 65 74 65 5f | 70 72 65 66 5f 70 61 72 | delete_|pref_par|
|00001780| 61 6d 73 3b 0d 09 0d 09 | 64 65 6c 65 74 65 5f 70 |ams;....|delete_p|
|00001790| 72 65 66 5f 70 61 72 61 | 6d 73 2e 66 6c 61 67 73 |ref_para|ms.flags|
|000017a0| 20 3d 20 30 3b 0d 09 64 | 65 6c 65 74 65 5f 70 72 | = 0;..d|elete_pr|
|000017b0| 65 66 5f 70 61 72 61 6d | 73 2e 73 69 7a 65 20 3d |ef_param|s.size =|
|000017c0| 20 34 3b 0d 09 64 65 6c | 65 74 65 5f 70 72 65 66 | 4;..del|ete_pref|
|000017d0| 5f 70 61 72 61 6d 73 2e | 77 68 61 74 20 3d 20 31 |_params.|what = 1|
|000017e0| 32 3b 0d 09 2f 2f 0d 09 | 64 65 6c 65 74 65 5f 70 |2;..//..|delete_p|
|000017f0| 72 65 66 5f 70 61 72 61 | 6d 73 2e 6b 65 79 20 3d |ref_para|ms.key =|
|00001800| 20 28 53 74 72 32 35 35 | 20 2a 29 20 6b 65 79 3b | (Str255| *) key;|
|00001810| 0d 09 2f 2f 0d 09 64 65 | 6c 65 74 65 5f 70 72 65 |..//..de|lete_pre|
|00001820| 66 5f 70 61 72 61 6d 73 | 2e 69 6e 73 74 20 3d 20 |f_params|.inst = |
|00001830| 69 6e 73 74 3b 0d 09 72 | 65 74 75 72 6e 28 43 61 |inst;..r|eturn(Ca|
|00001840| 6c 6c 55 6e 69 76 65 72 | 73 61 6c 50 72 6f 63 28 |llUniver|salProc(|
|00001850| 43 61 6c 6c 43 6f 6d 70 | 6f 6e 65 6e 74 55 50 50 |CallComp|onentUPP|
|00001860| 2c 20 75 70 70 43 61 6c | 6c 43 6f 6d 70 6f 6e 65 |, uppCal|lCompone|
|00001870| 6e 74 50 72 6f 63 49 6e | 66 6f 2c 20 26 64 65 6c |ntProcIn|fo, &del|
|00001880| 65 74 65 5f 70 72 65 66 | 5f 70 61 72 61 6d 73 29 |ete_pref|_params)|
|00001890| 29 3b 0d 7d 0d 0d 70 61 | 73 63 61 6c 20 49 43 45 |);.}..pa|scal ICE|
|000018a0| 72 72 6f 72 20 49 43 45 | 6e 64 28 49 43 49 6e 73 |rror ICE|nd(ICIns|
|000018b0| 74 61 6e 63 65 20 69 6e | 73 74 29 0d 7b 0d 09 73 |tance in|st).{..s|
|000018c0| 74 72 75 63 74 20 7b 0d | 09 09 63 68 61 72 20 66 |truct {.|..char f|
|000018d0| 6c 61 67 73 3b 0d 09 09 | 63 68 61 72 20 73 69 7a |lags;...|char siz|
|000018e0| 65 3b 0d 09 09 73 68 6f | 72 74 20 77 68 61 74 3b |e;...sho|rt what;|
|000018f0| 0d 09 09 2f 2f 0d 09 09 | 2f 2f 0d 09 09 49 43 49 |...//...|//...ICI|
|00001900| 6e 73 74 61 6e 63 65 20 | 69 6e 73 74 3b 0d 09 7d |nstance |inst;..}|
|00001910| 20 65 6e 64 5f 70 61 72 | 61 6d 73 3b 0d 09 0d 09 | end_par|ams;....|
|00001920| 65 6e 64 5f 70 61 72 61 | 6d 73 2e 66 6c 61 67 73 |end_para|ms.flags|
|00001930| 20 3d 20 30 3b 0d 09 65 | 6e 64 5f 70 61 72 61 6d | = 0;..e|nd_param|
|00001940| 73 2e 73 69 7a 65 20 3d | 20 30 3b 0d 09 65 6e 64 |s.size =| 0;..end|
|00001950| 5f 70 61 72 61 6d 73 2e | 77 68 61 74 20 3d 20 31 |_params.|what = 1|
|00001960| 30 3b 0d 09 2f 2f 0d 09 | 65 6e 64 5f 70 61 72 61 |0;..//..|end_para|
|00001970| 6d 73 2e 69 6e 73 74 20 | 3d 20 69 6e 73 74 3b 0d |ms.inst |= inst;.|
|00001980| 09 72 65 74 75 72 6e 28 | 43 61 6c 6c 55 6e 69 76 |.return(|CallUniv|
|00001990| 65 72 73 61 6c 50 72 6f | 63 28 43 61 6c 6c 43 6f |ersalPro|c(CallCo|
|000019a0| 6d 70 6f 6e 65 6e 74 55 | 50 50 2c 20 75 70 70 43 |mponentU|PP, uppC|
|000019b0| 61 6c 6c 43 6f 6d 70 6f | 6e 65 6e 74 50 72 6f 63 |allCompo|nentProc|
|000019c0| 49 6e 66 6f 2c 20 26 65 | 6e 64 5f 70 61 72 61 6d |Info, &e|nd_param|
|000019d0| 73 29 29 3b 0d 7d 0d 0d | 70 61 73 63 61 6c 20 49 |s));.}..|pascal I|
|000019e0| 43 45 72 72 6f 72 20 49 | 43 44 65 66 61 75 6c 74 |CError I|CDefault|
|000019f0| 46 69 6c 65 4e 61 6d 65 | 28 49 43 49 6e 73 74 61 |FileName|(ICInsta|
|00001a00| 6e 63 65 20 69 6e 73 74 | 2c 20 53 74 72 36 33 20 |nce inst|, Str63 |
|00001a10| 6e 61 6d 65 29 0d 7b 0d | 09 73 74 72 75 63 74 20 |name).{.|.struct |
|00001a20| 7b 0d 09 09 63 68 61 72 | 20 66 6c 61 67 73 3b 0d |{...char| flags;.|
|00001a30| 09 09 63 68 61 72 20 73 | 69 7a 65 3b 0d 09 09 73 |..char s|ize;...s|
|00001a40| 68 6f 72 74 20 77 68 61 | 74 3b 0d 09 09 2f 2f 0d |hort wha|t;...//.|
|00001a50| 09 09 53 74 72 69 6e 67 | 50 74 72 20 6e 61 6d 65 |..String|Ptr name|
|00001a60| 3b 0d 09 09 2f 2f 0d 09 | 09 49 43 49 6e 73 74 61 |;...//..|.ICInsta|
|00001a70| 6e 63 65 20 69 6e 73 74 | 3b 0d 09 7d 20 64 65 66 |nce inst|;..} def|
|00001a80| 61 75 6c 74 5f 66 69 6c | 65 5f 6e 61 6d 65 5f 70 |ault_fil|e_name_p|
|00001a90| 61 72 61 6d 73 3b 0d 09 | 0d 09 64 65 66 61 75 6c |arams;..|..defaul|
|00001aa0| 74 5f 66 69 6c 65 5f 6e | 61 6d 65 5f 70 61 72 61 |t_file_n|ame_para|
|00001ab0| 6d 73 2e 66 6c 61 67 73 | 20 3d 20 30 3b 0d 09 64 |ms.flags| = 0;..d|
|00001ac0| 65 66 61 75 6c 74 5f 66 | 69 6c 65 5f 6e 61 6d 65 |efault_f|ile_name|
|00001ad0| 5f 70 61 72 61 6d 73 2e | 73 69 7a 65 20 3d 20 34 |_params.|size = 4|
|00001ae0| 3b 0d 09 64 65 66 61 75 | 6c 74 5f 66 69 6c 65 5f |;..defau|lt_file_|
|00001af0| 6e 61 6d 65 5f 70 61 72 | 61 6d 73 2e 77 68 61 74 |name_par|ams.what|
|00001b00| 20 3d 20 31 31 3b 0d 09 | 64 65 66 61 75 6c 74 5f | = 11;..|default_|
|00001b10| 66 69 6c 65 5f 6e 61 6d | 65 5f 70 61 72 61 6d 73 |file_nam|e_params|
|00001b20| 2e 6e 61 6d 65 20 3d 20 | 28 53 74 72 69 6e 67 50 |.name = |(StringP|
|00001b30| 74 72 29 20 6e 61 6d 65 | 3b 0d 09 64 65 66 61 75 |tr) name|;..defau|
|00001b40| 6c 74 5f 66 69 6c 65 5f | 6e 61 6d 65 5f 70 61 72 |lt_file_|name_par|
|00001b50| 61 6d 73 2e 69 6e 73 74 | 20 3d 20 69 6e 73 74 3b |ams.inst| = inst;|
|00001b60| 0d 09 72 65 74 75 72 6e | 28 43 61 6c 6c 55 6e 69 |..return|(CallUni|
|00001b70| 76 65 72 73 61 6c 50 72 | 6f 63 28 43 61 6c 6c 43 |versalPr|oc(CallC|
|00001b80| 6f 6d 70 6f 6e 65 6e 74 | 55 50 50 2c 20 75 70 70 |omponent|UPP, upp|
|00001b90| 43 61 6c 6c 43 6f 6d 70 | 6f 6e 65 6e 74 50 72 6f |CallComp|onentPro|
|00001ba0| 63 49 6e 66 6f 2c 20 26 | 64 65 66 61 75 6c 74 5f |cInfo, &|default_|
|00001bb0| 66 69 6c 65 5f 6e 61 6d | 65 5f 70 61 72 61 6d 73 |file_nam|e_params|
|00001bc0| 29 29 3b 0d 7d 0d 0d 70 | 61 73 63 61 6c 20 49 43 |));.}..p|ascal IC|
|00001bd0| 45 72 72 6f 72 20 49 43 | 47 65 74 43 6f 6d 70 6f |Error IC|GetCompo|
|00001be0| 6e 65 6e 74 49 6e 73 74 | 61 6e 63 65 28 49 43 49 |nentInst|ance(ICI|
|00001bf0| 6e 73 74 61 6e 63 65 20 | 69 6e 73 74 2c 20 50 74 |nstance |inst, Pt|
|00001c00| 72 20 2a 63 6f 6d 70 6f | 6e 65 6e 74 5f 69 6e 73 |r *compo|nent_ins|
|00001c10| 74 29 0d 7b 0d 09 2a 63 | 6f 6d 70 6f 6e 65 6e 74 |t).{..*c|omponent|
|00001c20| 5f 69 6e 73 74 20 3d 20 | 69 6e 73 74 3b 0d 7d 0d |_inst = |inst;.}.|
|00001c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001c90| 79 2a 20 62 79 20 49 6e | 74 65 72 6e 65 74 20 43 |y* by In|ternet C|
|00001ca0| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 61 70 70 |onfigura|tion app|
|00001cb0| 0b 49 43 50 50 43 47 6c | 75 65 2e 63 02 00 00 00 |.ICPPCGl|ue.c....|
|00001cc0| 54 45 58 54 4d 50 43 43 | 01 00 00 00 00 40 00 00 |TEXTMPCC|.....@..|
|00001cd0| 00 00 54 45 58 54 4d 50 | 43 43 01 00 00 00 00 40 |..TEXTMP|CC.....@|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 aa e9 94 06 00 00 | 1b b0 00 00 01 7e 20 63 |........|.....~ c|
|00001d00| 75 72 72 65 6e 74 20 73 | 65 65 64 20 66 6f 72 20 |urrent s|eed for |
|00001d10| 70 72 65 66 73 20 66 69 | 6c 65 20 2a 2f 0d 2f 2a |prefs fi|le */./*|
|00001d20| 20 74 68 69 73 20 73 65 | 65 64 20 63 68 61 6e 67 | this se|ed chang|
|00001d30| 65 73 20 65 76 65 72 79 | 20 74 69 6d 65 20 61 20 |es every| time a |
|00001d40| 70 72 65 66 65 72 65 6e | 63 65 20 69 73 20 6d 6f |preferen|ce is mo|
|00001d50| 64 69 66 69 65 64 20 2a | 2f 0d 2f 2a 20 70 6f 6c |dified *|/./* pol|
|00001d60| 6c 20 74 68 69 73 20 74 | 6f 20 64 65 74 65 63 74 |l this t|o detect|
|00001d70| 20 70 72 65 66 65 72 65 | 6e 63 65 20 63 68 61 6e | prefere|nce chan|
|00001d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 03 | 00 02 00 3c 00 19 01 b4 |........|...<....|
|00001db0| 02 3f 00 3c 00 19 01 b4 | 02 3f ab 00 a6 16 00 00 |.?.<....|.?......|
|00001dc0| 04 8e 00 00 04 8e 00 00 | 01 63 01 00 00 00 01 00 |........|.c......|
|00001dd0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 df 72 b8 |...L...L|...2..r.|
|00001de0| 0f cc 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001df0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+